home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
xes.lha
/
XES
/
Install
< prev
next >
Wrap
Text File
|
1995-05-31
|
6KB
|
218 lines
; Installation script for XES
; Copyright (c) 1995 Fergus Duniho
(transcript "Installing the XDME Excelsior Suite ...")
(set @default-dest (getassign "XES"))
(if (> (strlen @default-dest) 0)
(
(set response
(askchoice
(prompt
"Because I sometimes remove stuff from XES, it is best "
"to delete your present XES installation before the "
"installation of the present version commences. Do "
"you wish to delete it?"
)
(help @askchoice-help)
(choices "Yes" "No")
)
)
(if (= response 0)
(run "delete XES:#? ALL")
)
)
(
(set @default-dest "Work:")
(set appdir
(askdir
(prompt "In which drawer should the XES drawer reside?")
(help @askdir-help)
(default @default-dest)
)
)
(set @default-dest (tackon appdir "XES"))
(makedir @default-dest
(infos)
(prompt "Creating XES directory")
)
(makeassign "XES" @default-dest)
; Make changes to the startup sequence
(working "Modifying the user-startup")
(startup "XES"
(prompt "Adding XES: assignment to user-startup")
(help @startup-help)
(command "; The XDME Excelsior Suite\n")
(command "; Copyright (c) 1995 Fergus Duniho.\n")
(command (cat "Assign XES: " @default-dest "\n"))
)
)
)
(makedir (tackon @default-dest "S")
(prompt "Creating S directory")
)
(makedir (tackon @default-dest "GUI")
(prompt "Creating GUI directory")
)
(makedir (tackon @default-dest "Rexx")
(prompt "Creating Rexx directory")
)
(makedir (tackon @default-dest "Docs")
(infos)
(prompt "Creating Docs directory")
)
(copyfiles
(prompt "Copying XDME scripts")
(help @copyfiles-help)
(source "S/")
(dest (tackon @default-dest "S"))
(confirm)
(files)
(all)
)
(copyfiles
(prompt "Copying Graphical User Interfaces")
(help @copyfiles-help)
(source "GUI/")
(dest (tackon @default-dest "GUI"))
(confirm)
(files)
(all)
)
(copyfiles
(prompt "Copying Documentation")
(help @copyfiles-help)
(source "Docs/")
(dest (tackon @default-dest "Docs"))
(infos)
(confirm)
(all)
)
(copyfiles
(prompt "Copying ARexx Scripts")
(help @copyfiles-help)
(source "Rexx/")
(dest (tackon @default-dest "Rexx"))
(infos)
(confirm)
(all)
)
(set @default-dest
(askdir
(prompt "Install Paginate where?")
(help @askdir-help)
(default "C:")
)
)
(copyfiles
(prompt "Copying utility programs")
(help @copyfiles-help)
(source "C/Paginate")
(dest @default-dest)
(confirm)
)
(set edrc
(tackon
(askdir
(prompt "In which drawer does (or will) your .edrc file reside?")
(help @askdir-help)
(default "S:")
)
".edrc"
)
)
(set response
(askchoice
(prompt
"To make use of XES, your .edrc file must contain a line "
"which reads: source XES:S/xes.xrc. If you have your own "
"macros, keymappings, or settings in your .edrc file, then "
"you should just add this line to it. Append it to get the "
"full benefit of XES, or prepend to give priority to what is "
"already in your .edrc file. If you don't have an .erdc file, "
"or if you are just using one from a previous version of XES, "
"you should just write a new .edrc file."
)
(help @askchoice-help)
(choices "Append to .edrc" "Prepend to .edrc" "Write new .edrc" "Leave .edrc alone")
)
)
(if (= response 0)
(run (cat "echo >>" edrc " source XES:S/xes.xrc"))
)
(if (= response 1) (
(run (cat "copy " edrc " t:"))
(run (cat "echo >" edrc " source XES:S/xes.xrc"))
(run (cat "type >>" edrc " t:.edrc"))
))
(if (= response 2)
(run (cat "echo >" edrc " source XES:S/xes.xrc"))
)
(if (not (exists "ENV:Diary"))
(
(set diarydir
(askdir
(prompt
"XES makes special provisions for you to keep a secret diary. "
"It expects to find all diary entries in a single drawer. "
"This script will create a drawer for you called /Diary/. "
"Where do you want the Diary drawer to reside? Please don't "
"choose to put it in the XES: drawer, as that drawer may get "
"flushed when you update XES again."
)
(help @askdir-help)
(default "Work:")
)
)
(set @default-dir (tackon diarydir "Diary/"))
(makedir @default-dest
(infos)
(prompt "Creating Diary directory")
)
(run (cat "setenv Diary " @default-dir))
(run "copy ENV:Diary ENVARC:")
)
)
(if (not (exists "ENV:MyName"))
(
(set name
(askstring
(prompt
"To mark your diary entries as yours, XES also needs to "
"know what name you wish to be referred to at the "
"beginning of each diary entry. You probably want to "
"enter your first name and last. What name do you want "
"to appear in your diary entries?"
)
(help @asktstring-help)
)
)
(run (cat "setenv MyName " name))
(run "copy ENV:MyName ENVARC:")
)
)
(message
"The XDME Excelsior Suite has been successfully installed. "
"It will be available to you the next time you use XDME."
)
(exit (quiet))